home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 154 / 154.d81 / b.anth-flag viii (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  173 lines
  1. 10 poke52,52:poke56,52:clr:poke53281,0:poke53280,0
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 30 print"[147]":gosub60000
  4. 40 dimw$(110),b(15),s$(17),m$(17),t$(17),mc(17),br(17)
  5. 50 unpack=13824:hg=13827:sr=52480:sq=52486:g=49153:ip=13312
  6. 52 sys57812"anth 3400-3747",dv,0:poke780,0:poke781,0:poke782,52:sys65493
  7. 54 sys57812"anth-flag.shp",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  8. 56 print"[147]":poke251,64:poke252,96:poke253,80:sysun
  9. 57 tq=ti
  10. 58 poke252,96:poke253,80:syshg
  11. 60 sys57812"anth font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  12. 80 sys57812"anth c000-cf5f",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  13. 82 ifti<tq+180then82
  14. 90 fs$="[129][193][206][212][200][197][205][211] [193][206][196] [198][204][193][199][211]"
  15. 100 sp$="                                        "
  16. 110 syssr,96,76,56
  17. 120 tp$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  18. 130 bt$="[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  19. 140 fori=0to15:reads$:s$(i)=s$+".shp":m$(i)=s$+".mus":t$(i)=s$+".txt"
  20. 150 readmc(i),br(i):next
  21. 151 datanew zealand,1,5
  22. 152 datanicaragua,0,5
  23. 153 dataniger,0,6
  24. 154 datanigeria,0,6
  25. 155 datanorway,0,5
  26. 156 dataoman,0,6
  27. 157 datapahang,0,5
  28. 158 datapakistan,0,6
  29. 159 datapanama,0,5
  30. 160 datapapua ng,0,5
  31. 161 dataparaguay,0,5
  32. 162 datapenang,0,5
  33. 163 dataperak,0,5
  34. 164 dataperlis,0,5
  35. 165 dataperu,0,5
  36. 166 dataphilippines,0,5
  37. 200 syshg
  38. 210 goto600
  39. 220 :
  40. 230 :rem box
  41. 240 :
  42. 250 poke214,y:print
  43. 260 printtab(x)"[176]"left$(tp$,xx)"[174]"
  44. 262 printtab(x)"[170]["left$(sp$,xx-2)"][180]"
  45. 270 forii=2toyy:printtab(x)"[170]"left$(sp$,xx)"[180]":next
  46. 272 printtab(x+1)"[145]<"tab(x+xx)">"
  47. 280 printtab(x)"[173]"left$(bt$,xx)"[189]"
  48. 290 return
  49. 300 :
  50. 310 :rem load pic/mus/txt
  51. 320 :
  52. 330 poke214,20:print:printtab(14)"[155][204]oading [208]icture[145]"
  53. 340 sys57812s$(s),dv,0:poke780,0:poke781,0:poke782,64:sys65493
  54. 350 printtab(22)"[205]usic  [145]"
  55. 360 sys57812m$(s),dv,0:poke780,0:poke781,0:poke782,128:sys65493
  56. 370 printtab(22)"[215]ords  [145]"
  57. 380 fori=0to99:w$(i)="":next
  58. 390 sys13312,t$(s),dv
  59. 400 h=peek(252)*256+peek(251)
  60. 410 w$(0)=mid$(w$(0),3)
  61. 420 printtab(14)"               "
  62. 430 return
  63. 440 :
  64. 450 :rem display/play
  65. 460 :
  66. 470 poke251,64:poke252,96:poke253,76:sysun
  67. 480 poke252,96:poke253,76:syshg
  68. 490 sys49615:poke781,0:poke782,128:sys49664:poke49152,7:mu=1
  69. 500 return
  70. 510 :
  71. 520 :rem turn off pic/mus
  72. 530 :
  73. 540 poke49152,0:poke54276,0:poke54283,0:poke54290,0:sys49897:sys49935:mu=0
  74. 550 syshg
  75. 560 return
  76. 570 :
  77. 580 :rem loop
  78. 590 :
  79. 600 s=1
  80. 610 print"[147]":poke53272,31
  81. 620 gosub880
  82. 622 poke214,19:print
  83. 624 iff1thenprinttab(4)"space [154] next song  q [154] quit to menu":goto628
  84. 626 printtab(12)"space [154] stop song
  85. 628 [141]330
  86. 630 n[178]0
  87. 640 [141]470:[151]53280,br(s)
  88. 650 [158]sq[171]3,"stopopen"
  89. 660 [139]mc(s)[167][158]sq[171]3,"open"
  90. 670 [129]i[178]0[164]4:[158]sq,1,20[170]i,[200](sp$,38):[130]
  91. 680 [129]i[178]0[164]4
  92. 690 [139][195](w$(n[170]i))[179]3[167]710
  93. 700 [158]sq,20[171][181](([195](w$(n[170]i))[173]2)),20[170]i,w$(n[170]i)
  94. 710 [130]
  95. 720 [158]sq[171]3,"wait"
  96. 730 [139][194](49152)[179][177]7[167]a$[178]" ":[137]830
  97. 740 jv[178][194](56320):[161]a$:[139]a$[178]""[175](jv[178]127)[167]730
  98. 742 [139]f1[167][139]a$[178]"q"[167]f1[178]0:g[178]0:[141]540:[137]620
  99. 750 [139]a$[179][177]""[175](jv[179][177]126)[167]790
  100. 760 [139]n[177][178]h[171]5[167]730
  101. 770 n[178]n[170]5
  102. 780 [137]660
  103. 790 [139]a$[179][177]""[175](jv[179][177]125)[167]830
  104. 800 [139]n[179]2[167]730
  105. 810 n[178]n[171]5
  106. 820 [137]660
  107. 830 [139]a$[178]" "[176]jv[179]112[167][141]540:s[178](s[170]1)[175]15:[137]620
  108. 840 [137]730
  109. 850 :
  110. 860 :[143] menu screen
  111. 870 :
  112. 880 [151]53281,0:[151]53280,0
  113. 882 [139]s[178]0[167]s[178]1:f1[178]0:[137]1050
  114. 890 [139](g[178]1)[175](mc(s[171]1)[178]0)[175](f1[178]1)[167]1050
  115. 900 [139](g[178]1)[175](mc(s[171]1)[178]0)[175](f1[178]0)[167]1050
  116. 910 g[178]1:[153]"load":x[178]2:xx[178]35:y[178]0:yy[178]21:[141]250
  117. 920 [153]"for"[163]10)"ortantan^           ortantan^
  118. 930 printtab(10)"[171][192][192][179][158]nthems and[129] [171][192][179][158]lags
  119. 940 [153][163]10)"forexp  /tantantantantantan    tanexp
  120. 950 printtab(13)"[145][192][192][192][192][174]  [176]
  121. 960 [153][163]13)"sysof thefor (NULL)or^(NULL)sysorld
  122. 970 printtab(13)"[129]       [173][189][173][189]
  123. 972 [153]"verify(NULL)close(NULL)close"[163]33)"waitverify(NULL)close(NULL)close"
  124. 974 [153]"verify(NULL)opencloselogclose"[163]33)"waitverify(NULL)closelogclose"
  125. 976 [153]"verify(NULL)"[163]33)"(NULL)"
  126. 978 [153]"verify(NULL)"[163]33)"(NULL)"
  127. 980 [151]214,8:[153]
  128. 990 [129]i[178]0[164]7:[153][163]6)""[199](i[170]65);
  129. 1000 [153][163]9)"cont"[200](s$(i),[195](s$(i))[171]4);
  130. 1010 [153][163]22)""[199](i[170]73);
  131. 1020 [153][163]25)"cont"[200](s$(i[170]8),[195](s$(i[170]8))[171]4):[130]
  132. 1030 [153][163]12)"r  cont'round the world
  133. 1040 printtab(12)"q  [154]quit
  134. 1050 [139]f1[167][161]a$:[139]a$[178]""[167][142]
  135. 1052 [151]214,19:[153]:[153]"                                  "
  136. 1060 [161]a$:[139]a$[178]""[167]1060
  137. 1070 [139]a$[179][177]"r"[167]1100
  138. 1080 f1[178]1:s[178]0
  139. 1090 [142]
  140. 1100 [139]a$[178]"q"[167][141]39900:[137]1040
  141. 1110 [139]a$[179]"a"[176]a$[177]"p"[167]1060
  142. 1120 s[178][198](a$)[171]65:f1[178]0
  143. 1130 [142]
  144. 10000 d[178][194](186):n$[178]"b.anth-flag viii":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  145. 39900 [151]214,18:[153]:[153][163]8)"contquit? are you sure? (ycont/ncont)on"
  146. 39910 [161]a$:[139]a$[178]""[167]39910
  147. 39920 [139]a$[178]"y"[167]40000
  148. 39930 [153][163]8)"cont                             on"
  149. 39940 [142]
  150. 40000 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
  151. 40010 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]40030
  152. 40020 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
  153. 40030 a$[178]"presenter":[141]40040:a$[178]"hello connect"
  154. 40040 [129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
  155. 40050 [160]2:[159]2,i,2:[160]2:[139]st[167]40070
  156. 40060 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40090
  157. 40070 [130]:[139]a$[178]"presenter"[167][142]
  158. 40080 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  159. 40090 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  160. 40100 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  161. 40110 [153]"p(NULL)53272,23:run:":[151]631,13:[151]632,13:[151]198,2:[128]
  162. 60000 [153]"load":z$[178]" print#                                      ":[151]214,10:[153]
  163. 60010 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]9:[153]z$:[130]
  164. 60020 [153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  165. 60030 z$(0)[178]"atn(NULL)(NULL)left$val(NULL)(NULL) atn(NULL)str$ asc(NULL)atnchr$(NULL) (NULL)asc (NULL)left$val (NULL)(NULL)(NULL)(NULL)str$"
  166. 60032 z$(1)[178]"by (NULL)arquis, left$arned and (NULL)ucker"
  167. 60040 z$(2)[178]"(len) 1996 by mid$ & asc (NULL)ublishing, right$nc.
  168. 60050 z$(4)="[212]his program is not shareware
  169. 60070 z$(5)[178]"or in the public domain."
  170. 60080 z$(7)[178]"1-800-594-3370 or 1-318-221-8718"
  171. 60090 [151]214,12:[153]
  172. 60100 [129]i[178]0[164]7:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  173.